<script>on mouseDownget the rect of meput item 1 of it + item 1 of loc of cd window +154 into horizput item 4 of it + item 2 of loc of cd window -200 into vertput "BBC,R. Moscow,R. Vilnius,R. Switzerland,R. Habana Cuba,NHK,R. Tirana," & ¬"RNE,R. Prague,R. Nederland,RCI,R. Denmark,DW,R. Austria,R. Beijing,R. Australia,-,Other" into myChoicesput the number of items of myChoices into otherItemget PopUpMenu (myChoices,0,vert,horiz)if it is 0 or it is otherItem thenset the lockText of me to falseselect text of meelseput item it of myChoices into meend ifend mouseDownon closeFieldset the locktext of me to trueend closeFieldon exitFieldset the locktext of me to trueend exitField</script>
</part>
<part>
<id>2</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>113</left>
<top>246</top>
<right>268</right>
<bottom>265</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Country</name>
<script></script>
</part>
<part>
<id>4</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>287</left>
<top>82</top>
<right>479</right>
<bottom>263</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Courier</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Remarks</name>
<script>on openFieldset the textArrows to trueend openFieldon closeFieldset the textArrows to falseend closeFieldon exitFieldset the textArrows to falseend exitField</script>
</part>
<part>
<id>1</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>111</left>
<top>54</top>
<right>190</right>
<bottom>74</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>kHz</name>
<script>on exitFieldif fld "KHz" is not "Empty" thenset numberFormat to "####0.000"add 0 to field "KHz"end ifend exitField</script>
</part>
<part>
<id>6</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>111</left>
<top>22</top>
<right>145</right>
<bottom>41</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Channel #</name>
<script></script>
</part>
<part>
<id>7</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>454</left>
<top>295</top>
<right>504</right>
<bottom>340</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>5436</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>New Button</name>
<script>on mouseUpvisual effect dissolve fastgo to card "Main Control Panel"end mouseUp</script>
</part>
<part>
<id>8</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>111</left>
<top>86</top>
<right>189</right>
<bottom>106</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Mode</name>
<script>on mouseDownget the rect of meput item 1 of it + item 1 of loc of cd window +42 into horizput item 4 of it + item 2 of loc of cd window -17 into vertput "AM,USB,LSB,CW,RTTY,FAX,FM,ECSS-USB,ECSS-LSB" into myChoicesget PopUpMenu (myChoices,1,vert,horiz)if it is 0 thenput "AM" into meelseput item it of myChoices into meend ifend mouseDown</script>
</part>
<part>
<id>9</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>111</left>
<top>118</top>
<right>162</right>
<bottom>136</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Bandwidth</name>
<script>on mouseDownget the rect of meput item 1 of it + item 1 of loc of cd window +50 into horizput item 4 of it + item 2 of loc of cd window -17 into vertput "WIDE,INTER,NARR,AUX" into myChoicesget PopUpMenu (myChoices,1,vert,horiz)if it is 0 thenput "WIDE" into meelseput item it of myChoices into meend ifend mouseDown</script>
</part>
<part>
<id>10</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>112</left>
<top>150</top>
<right>164</right>
<bottom>168</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>AGC</name>
<script>on mouseDownget the rect of meput item 1 of it + item 1 of loc of cd window +51 into horizput item 4 of it + item 2 of loc of cd window +15 into vertput "OFF,SLOW,FAST" into myChoicesget PopUpMenu (myChoices,3,vert,horiz)if it is 0 thenput "FAST" into meelseput item it of myChoices into meend ifend mouseDown</script>
</part>
<part>
<id>11</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>112</left>
<top>182</top>
<right>165</right>
<bottom>202</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Attenuator</name>
<script>on mouseDownget the rect of meput item 1 of it + item 1 of loc of cd window +52 into horizput item 4 of it + item 2 of loc of cd window -19 into vertput "0 dB,20 dB" into myChoicesget PopUpMenu (myChoices,1,vert,horiz)if it is 0 thenput "-0 dB" into meelseput "-" & item it of myChoices into meend ifend mouseDown</script>
</part>
<part>
<id>12</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>412</left>
<top>295</top>
<right>463</right>
<bottom>340</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>17214</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Clear</name>
<script>on mouseUpglobal Talkif Talk thenspeak "Clear memory channel" & bg fld "channel #"end ifanswer "Clear this memory channel" with "Ok" or "Cancel"if it is "Ok" thenput empty into bg field "kHz"put empty into bg field "Mode"put empty into bg field "Bandwidth"put empty into bg field "AGC"put empty into bg field "Attenuator"put empty into bg field "Remarks"put "Empty" into bg field "Station"put empty into bg field "Country"end ifend mouseUp</script>
</part>
<part>
<id>13</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>304</left>
<top>305</top>
<right>396</right>
<bottom>325</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>MEM to VFO</name>
<script>-- This button sets a 525 memory channel with the parameters on this card-- The assumption is that the control panel display on Main card is the-- same as the data on the card (which it will be if the user hasn't-- changed it with the Edit or Set function)on mouseUpglobal Talk, morefreqif bg field "kHz" is "0.00" thenif Talk then speak "There dazint seem to be anything to download!"answer "There doesn't seem to be anything to download!" with OKexit mouseUpend if-- make this the current memory channel on 525-- sendSerial ("C" & bg field "Channel #"), 1200-- download all the parameterslock screenput bg fld "kHz" into dialTempmultiply dialTemp by 1set numberFormat to "#####.00"put dialTemp into bg fld "Dial" of card "Main Control Panel"put bg fld "mode" into bg fld "mode" of card "Main Control Panel"put bg fld "attenuator" into bg fld "att" of card "Main Control Panel"put bg fld "agc" into bg fld "agc" of card "Main Control Panel"put bg fld "bandwidth" into bg fld "filter" of card "Main Control Panel"put bg field "addfreq"into morefreqput morefreq into bkgnd fld "altfreq" of card "Main Control Panel"sendFreqdoModedoBWdoATTdoAGCunlock screenvisual dissolvego cd 1-- set the previously selected channel on the 525 with current params-- -- sendSerial "E1", 1200if Talk then speak "memory chanul " & bg fld "Channel #" & "downloaded"end mouseUp</script>
</part>
<part>
<id>14</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>171</left>
<top>304</top>
<right>215</right>
<bottom>326</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>9301</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Prior Card</name>
<script>on mouseUpget the short name of this cardif it is "Channel000" thenbeepelsego to previous cardend ifend mouseUp</script>
</part>
<part>
<id>15</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>225</left>
<top>305</top>
<right>260</right>
<bottom>325</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>27009</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Next card</name>
<script>on mouseUpget the short name of this cardif it is "Channel199" thenbeepelsego to next cardend ifend mouseUp</script>
</part>
<part>
<id>16</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>142</left>
<top>300</top>
<right>183</right>
<bottom>330</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>30557</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>New Button</name>
<script>on mouseUpgo to card "Channel000"end mouseUp</script>
</part>
<part>
<id>17</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>256</left>
<top>302</top>
<right>297</right>
<bottom>329</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>26865</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>New Button</name>
<script>on mouseUpgo to card "Channel199"end mouseUp</script>
</part>
<part>
<id>18</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>66</left>
<top>294</top>
<right>129</right>
<bottom>338</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>5028</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Load Channel</name>
<script>-- This button sets a 535 memory channel with the parameters on this card-- The assumption is that the control panel display on Main card is the-- same as the data on the card (which it will be if the user hasn't-- changed it with the Edit or Set function)on mouseUpglobal morefreqset icon of me to "receiverControl ON"play clickset icon of me to "receiverControl OFF"global Talk,channelDataKHz,channelDataStation,channelDataRemarksif bg field "kHz" is "0.00" thenif Talk then speak "There dazint seem to be anything to download!"answer "There doesn't seem to be anything to download!" with OKexit mouseUpend ifput bg field "Channel #" into channelTempput bg field "kHz" into channelDataKHzput bg field "station" into channelDataStationput bg field "remarks" into channelDataRemarksput bg field "addfreq"into morefreq-- make this the current memory channel on 525-- sendSerial ("C" & bg field "Channel #"), 1200-- download all the parameterslock screenput bg fld "kHz" into dialTempmultiply dialTemp by 1set numberFormat to "#####.00"put dialTemp into bg fld "Dial" of card "Main Control Panel"put bg fld "mode" into bg fld "mode" of card "Main Control Panel"put bg fld "attenuator" into bg fld "att" of card "Main Control Panel"put bg fld "agc" into bg fld "agc" of card "Main Control Panel"put bg fld "bandwidth" into bg fld "filter" of card "Main Control Panel"put morefreq into bkgnd fld "altfreq" of card "Main Control Panel"sendFreqdoModedoBWdoATTdoAGCunlock screenvisual dissolvego cd 1set the name of card button id 32 to channelTempput channelTemp into bg field "Channel"put channelDataKHz && "kHz" & return & channelDataStation ¬& return & channelDataRemarks into bg field"Channel Data"multiply channelTemp by 1.825add 95 to channelTempset numberFormat to "0"divide channelTemp by 1put channelTemp & ",276" into theLocset the loc of cd btn id 32 to (theLoc)-- set the previously selected channel on the 525 with current params-- -- sendSerial "E1", 1200if Talk then speak "memory chanul " & bg fld "Channel #" & "downloaded"end mouseUp</script>
</part>
<part>
<id>19</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>196</left>
<top>23</top>
<right>279</right>
<bottom>205</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>AddFreq</name>
<script></script>
</part>
<name>Channel Data</name>
<script>on openCardif fld "Station" is "Empty" thenput "USB" into fld "Mode"put "INTER" into fld "Bandwidth"put "SLOW" into fld "AGC"put "-0 dB" into fld "Attenuator"select text of field "Khz"end ifend openCardon closeCardif fld "Station" is "Empty" thenput empty into fld "Mode"put empty into fld "Bandwidth"put empty into fld "AGC"put empty into fld "Attenuator"set the locktext of fld "Station" to trueend ifif fld "KHz" is not "Empty" thenset numberFormat to "####0.000"add 0 to field "KHz"end ifend closeCard</script>
